<!-- 改为jsp后 如有需要可按照以下方式include file  -->
<!--<%@include file="Inc/SysProduct.jsp"%> -->

<!-- 改为jsp后 解开注释include file  -->
<!--<%@include file="Head.jsp"%>-->

<!--<%
UserName=trim(request("UserName"))
if session("UserName")="" then
	response.redirect "UserServer.asp"
end if
%>-->
<html>
<body>
<table width="970" height="17" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td background="imgbys/top17.gif"></td>
  </tr>
</table>
<table width="970" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="4"></td>
  </tr>
</table>
<table width="970" height="416" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="264" valign="top">
    
	<!-- 改为jsp后 解开注释include file  -->
	<!--<%@include file="Loop.jsp"%>-->
	
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="4"></td>
          </tr>
        </table>
      <table width="264" height="24" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFCEB">
          <tr>
            <td width="14"><img src="imgbys/top19.gif" width="10" height="6" /></td>
            <td width="71" valign="middle" class="ab21">服务中心</td>
            <td width="179" valign="middle" class="ab3">SERVICE CENTER </td>
          </tr>
        </table>
      <table width="264" height="8" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td><img src="imgbys/top4.gif" width="264" height="8" /></td>
          </tr>
        </table>
      <table width="264" height="111" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td height="111" bgcolor="#F6F6F6"><table width="80%" height="8" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td></td>
                </tr>
              </table>
                <table width="80%" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="24%" align="center"><img src="imgbys/top20.gif" width="12" height="11" /></td>
                    <td width="76%"><a href="UserEdit.html" class="linkleft1">修改会员资料</a> </td>
                  </tr>
                </table>
              <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" background="imgbys/line1.gif">
                  <tr>
                    <td height="1"></td>
                  </tr>
                </table>
              <table width="80%" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="24%" align="center"><img src="imgbys/top20.gif" width="12" height="11" /></td>
                    <td width="76%"><a href="UserEditPwd.html" class="linkleft1">修改会员密码</a></td>
                  </tr>
                </table>
              <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" background="imgbys/line1.gif">
                  <tr>
                    <td height="1"></td>
                  </tr>
                </table>
              <table width="80%" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="24%" align="center"><img src="imgbys/top20.gif" width="12" height="11" /></td>
                    <td width="76%"><a href="FeedbackMember.html" class="linkleft1">站内留言中心</a> </td>
                  </tr>
                </table>
              <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" background="imgbys/line1.gif">
                  <tr>
                    <td height="1"></td>
                  </tr>
                </table>
              <table width="80%" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="24%" align="center"><img src="imgbys/top20.gif" width="12" height="11" /></td>
                    <td width="76%"><a href="UserLogout.html?Action=Ch" class="linkleft1">退出会员中心</a> </td>
                  </tr>
                </table>
              <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" background="imgbys/line1.gif">
                  <tr>
                    <td height="1"></td>
                  </tr>
                </table>
              <table width="80%" height="48" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td></td>
                  </tr>
              </table></td>
          </tr>
      </table></td>
    <td width="7" valign="top"></td>
    <td width="1" valign="top" bgcolor="#EAE5CF"></td>
    <td width="6" valign="top"></td>
    <td valign="top"><span id="tb_A101">
      <!--------------------显示最新产品的子程序结束--------------------->
      </span>
        <table width="692" height="23" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="10"><img src="imgbys/top19.gif" width="10" height="6" /></td>
            <td width="68" valign="middle" class="ab2">客户服务</td>
            <td width="452" valign="middle" class="ab3">CUSTOMER SERVICE</td>
            <td width="162" class="ab1">您现在的位置 &gt;&gt; 客户服务</td>
          </tr>
        </table>
      <table width="692" height="4" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td background="imgbys/top18.gif"></td>
          </tr>
        </table>
      <table width="98%" height="15" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="15"></td>
          </tr>
        </table>
      <table width="98%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="206" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td align="center"><!-- <%
UserName=Session("UserName")
set rs=server.createobject("adodb.recordset")
sql="select * from Feedback where UserName='"&UserName&"' order by id desc"
rs.open sql,conn,1,1

dim MaxPerPageFeedback
MaxPerPageFeedback=5

'取得页数,并判断留言输入的是否数字类型的数据，如不是将以第一页显示
text="0123456789"
Rs.PageSize=MaxPerPageFeedback
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if

call list

'显示帖子的子程序
Sub list()%> -->
                    <!-- <%
If rs.eof and rs.bof then
  response.write "<br><br><p algin=center>对不起，您还没有给我们留言</p><br><a href='Feedback.html'>点击这里留言</a>"
  response.end
End if
%> -->
                    <br />
                    <!-- <%
i=0
do while not rs.eof
%> -->
                    <table width="100%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" >
                      <tr bgcolor="#EBEBEB">
                        <td width="19%" height="40" align="right" bgcolor="#F6F6F6" > 主　题： </td>
                        <td colspan="5" bgcolor="#F6F6F6">&nbsp;
                            <!-- <%if rs("username")="管理员"then%> -->
                          [管理员公告]
                          <!-- <%end if%> -->
                        <!-- <%=rs("title")%> --></td>
                      </tr>
                      <tr bgcolor="#DFDFDF">
                        <td height="22" align="right" bgcolor="#F6F6F6" > 反馈内容： </td>
                        <td colspan="5" align="center" bgcolor="#F6F6F6" ><table width="97%"  border="0" cellpadding="0" cellspacing="0">
                            <tr>
                              <td height="40" ><!-- <%=rs("Content")%> --> </td>
                            </tr>
                        </table></td>
                      </tr>
                      <tr bgcolor="#EFEFEF">
                        <td height="40" align="right" bgcolor="#F6F6F6" > 留言者： </td>
                        <td width="20%" bgcolor="#F6F6F6" ><!-- <%=rs("Receiver")%> --> </td>
                        <td width="12%" align="right" bgcolor="#F6F6F6" >留言时间：</td>
                        <td width="17%" bgcolor="#F6F6F6" ><!-- <%=rs("Time")%> --></td>
                        <td width="12%" align="right" bgcolor="#F6F6F6" >回复时间：</td>
                        <td width="20%" bgcolor="#F6F6F6" ><!-- <%=rs("Retime")%> --> </td>
                      </tr>
                      <tr bgcolor="#DFDFDF">
                        <td height="22" align="right" bgcolor="#F6F6F6" > 管理员回复： </td>
                        <td colspan="5" align="center" bgcolor="#F6F6F6" ><table width="97%"  border="0" cellpadding="0" cellspacing="0" >
                            <tr>
                              <td height="4"></td>
                            </tr>
                            <tr>
                              <td height="40" ><!-- <%if rs("ReFeedback")=""then%> -->
                                [&quot;未回复&quot;]
                                <!-- <%else%> -->
                                <!-- <%=rs("ReFeedback")%> -->
                                <!-- <%end if%> -->
                              </td>
                            </tr>
                            <tr>
                              <td height="4"></td>
                            </tr>
                        </table></td>
                      </tr>
                      <tr valign="top" bgcolor="#F7F7F7">
                        <td height="12" colspan="6" ><img src="Images/Hrbackup.gif" width="96" height="10" /></td>
                      </tr>
                    </table>
                  <!-- <%
i=i+1
if i >= MaxPerPageFeedback then exit do
rs.movenext
loop
%> -->
                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td><div align="right">
                            <!-- <%
Response.write "全部"
Response.write "共" & Cstr(Rs.RecordCount) & "条留言&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
Response.write "第" & Cstr(CurrentPage) &  "/" & Cstr(rs.pagecount) & "&nbsp;"
If currentpage > 1 Then
response.write "<a href='FeedbackMember.html?&page="+cstr(1)+"'>&nbsp;首页&nbsp;</a>"
Response.write "<a href='FeedbackMember.html?page="+Cstr(currentpage-1)+"'>&nbsp;上一页&nbsp;</a>"
Else
Response.write "&nbsp;上一页&nbsp;"
End if
If currentpage < Rs.PageCount Then
Response.write "<a href='FeedbackMember.html?page="+Cstr(currentPage+1)+"'>&nbsp;下一页&nbsp;</a>"
Response.write "<a href='FeedbackMember.html?page="+Cstr(Rs.PageCount)+"'>&nbsp;尾页&nbsp;</a>"
Else
Response.write ""
Response.write "&nbsp;下一页&nbsp;"
End if
Response.write "转到第"
response.write"<select name='sel_page' onChange='javascript:location=this.options[this.selectedIndex].value;'>"
    for i = 1 to Rs.PageCount
       if i = currentpage then 
          response.write"<option value='FeedbackMember.html?page="&i&"&id="&id&"' selected>"&i&"</option>"
       else
          response.write"<option value='FeedbackMember.html?page="&i&"&id="&id&"'>"&i&"</option>"
       end if
    next
response.write"</select>页"
%> -->
                        </div></td>
                      </tr>
                    </table>
                  <!-- <%end sub%> -->
                </td>
              </tr>
          </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<!-- <%
rs.close
set rs=nothing
%> -->   
 
<!-- 改为jsp后 解开注释include file  -->
<!--<%@include file="Inc/Foot.jsp"%>-->

</BODY></HTML>